home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Python 1.1 / Mac / macstat.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-08-29  |  1.5 KB  |  66 lines  |  [TEXT/KAHL]
  1. /* Minimal 'stat' emulation: tells directories from files and
  2.    gives length and mtime.
  3.    Public domain by Guido van Rossum, CWI, Amsterdam (July 1987).
  4.    Updated to give more info, August 1994.
  5. */
  6.  
  7. #include "macstat.h"
  8. #include "macdefs.h"
  9.  
  10. /* Bits in ioFlAttrib: */
  11. #define LOCKBIT    (1<<0)        /* File locked */
  12. #define DIRBIT    (1<<4)        /* It's a directory */
  13.  
  14. int
  15. macstat(path, buf)
  16.     char *path;
  17.     struct macstat *buf;
  18. {
  19.     union {
  20.         DirInfo d;
  21.         FileParam f;
  22.         HFileInfo hf;
  23.     } pb;
  24.     char name[256];
  25.     short err;
  26.     
  27.     pb.d.ioNamePtr = (unsigned char *)c2pstr(strcpy(name, path));
  28.     pb.d.ioVRefNum = 0;
  29.     pb.d.ioFDirIndex = 0;
  30.     pb.d.ioDrDirID = 0;
  31.     pb.f.ioFVersNum = 0; /* Fix found by Timo! See Tech Note 102 */
  32.     if (hfsrunning())
  33.         err = PBGetCatInfo((CInfoPBPtr)&pb, FALSE);
  34.     else
  35.         err = PBGetFInfo((ParmBlkPtr)&pb, FALSE);
  36.     if (err != noErr) {
  37.         errno = ENOENT;
  38.         return -1;
  39.     }
  40.     if (pb.d.ioFlAttrib & LOCKBIT)
  41.         buf->st_mode = 0444;
  42.     else
  43.         buf->st_mode = 0666;
  44.     if (pb.d.ioFlAttrib & DIRBIT) {
  45.         buf->st_mode |= 0111 | S_IFDIR;
  46.         buf->st_size = pb.d.ioDrNmFls;
  47.         buf->st_rsize = 0;
  48.     }
  49.     else {
  50.         buf->st_mode |= S_IFREG;
  51.         if (pb.f.ioFlFndrInfo.fdType == 'APPL')
  52.             buf->st_mode |= 0111;
  53.     }
  54.     buf->st_ino = pb.hf.ioDirID;
  55.     buf->st_nlink = 1;
  56.     buf->st_uid = 1;
  57.     buf->st_gid = 1;
  58.     buf->st_size = pb.f.ioFlLgLen;
  59.     buf->st_mtime = buf->st_atime = pb.f.ioFlMdDat;
  60.     buf->st_ctime = pb.f.ioFlCrDat;
  61.     buf->st_rsize = pb.f.ioFlRLgLen;
  62.     *(unsigned long *)buf->st_type = pb.f.ioFlFndrInfo.fdType;
  63.     *(unsigned long *)buf->st_creator = pb.f.ioFlFndrInfo.fdCreator;
  64.     return 0;
  65. }
  66.